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1.0 ABSTRACT. 
THIS PROGRAM IS DESIGNED AS A MAINTENANCE AID FOR 
FIELD SERVICE PERSONEL. IT WILL VERIFY THE PROPER OPERATION 
OF A COMPLETE COMMUNICATION LINK FROM ONE PDP-11 
SYSTEM TO ANOTHER OR TO A COMMUNICATION TEST CENTER. 


THIS PROGRAM MUST BE USED IN CONJUNCTION WITH THE INTERPROCESSOR 
TEST PROGRAM(DZITP) ON A PDP=11 SYSTEM WITH A DL-11 INTERFACE. 


REQUIREMENTS. 
EQUIPMENT 


A. PDP=-11 SYSTEM WITH 4K OF CORE. 
B. A DQ11 COMMUNICATION INTERFACE. 


STORAGE . 

4K OF CORE 

LOADING PROCEDURE 

THIS PROGRAM IS_IN ABSOLUTE FORMAT. 

THE ABS LOADER MUST BE USED TO LOAD THE PROGRAM. 


OPERATING PROCEDURES. 


A. TWO METHODS OF ENTERING PARAMETERS fe git 
1. LOAD ADDRESS TO ENTER PARAMS FROM CONSOLE TTY, PROCEED TO SECTION B. 
2. LOAD ADDRESS 200 AND SET SWITCH REGISTER BIT 15 BEFORE 
STARTING TO ENTER PARAMS FROM CONSOLE SWITCHES, PROCEED TO SECTION C. 
*THE PROGRAM MAY BE RESTARTED AT LOC 204 (ONCE PARAMETERS HAVE ALREADY BEEN SELECTED) 


CONSOLE DIALOGUE PARAMETER INPUT (CURRENT VALUES FOR PARAMETERS ARE FOUND IN OVERLAY) 


1. THE PROGRAM WILL TYPEOUT THE NAME OF THE VARIABLE OVERLAY. 
A. IF YOU WISH TO SETUP JUST THE at ke OVERLAY, TYPE A CARAGE RETURN 
B. IF YOU WISH TO SETUP A DN11, TYPE IN 
C. IF YOU WISH TO SETUP A DM11BB, TYPE IN. DMB. 


IF DN OR DMB WAS TYPED IN STEP 1 ABOVE THEN THE BUS ADDRE 
VECTOR ETC. REFERED TO IN STEPS 2 THRU 7, PERTAIN TO THE ONT OR DMBB. 


THE PROGRAM WILL TYPE THE DEFAULT BUS ADDRESS OF THE INTERFACE UNDER TEST. 
TYPE A CAR. RETURN TO USE DEFAULT BUS ADDRESS 
TYPEIN ACTUAL BUS ADDRESS 


A. 

B. 

THE wry WILL TYPE OUT THE DEFAULT VECTOR ADDRESS 
A. TYPE A CAR. RETURN TO USE DEFAULT ADDRESS 

B. TYPEIN ACTUAL VECTOR ADDRESS 
TH 
NO 


HE PROGRAM WILL TYPE OUT THE DEFAULT INTERFACE PRIORITY 
TE: 200=PRIO 4, 240=PRIO 5, 300=PRIO 6, ETC. 
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A. TYPE A CAR. RETURN TO USE DEFAULT VALUE 
B. TYPEIN ACTUAL VALUE 


THE PROGRAM WILL TYPEQUT THE DEFAULT VALUE OF PARAM#1 
. a wy BY THE ISR.(SEE SECT. 10.0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION) 
TYPE A CAR. RETURN TO USE DEFAULT VALUE 
8: TYPEIN ACTUAL VALUE 


THE PROGRAM WILL as THE DEFAULT VALUE OF PARAM#2 
IF oe g THE ISR 
TYPE A CAR, RETURN TO USE DEFAULT VALUE 
8. ENTER ACTUAL VALUE 


THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAM#S 
IF ee BY THE OVERLAY. 
A. TYPE A CAR. RETURN TO USE DEFAULT VALUE 

THE DN=-11 WILL USE PARAM #3 AS THE # TO DIAL. 
IF USING A MODEM WITHOUT AUTOMATIC HANDSHAKING, 
THE NUMBER MUST TERMINATE WITH A 
"'END-OF -NUMBER®’ CHARACTER (:). 

B. ENTER ACTUAL VALUE. 


THE PROGRAM WILL RETURN TO STEP B1 IF THIS SETUP 
WAS FOR DN11 OR DM11BB. 


THE Nags WILL REQUEST THAT SWITCH REGISTER BE SET. 
SETUP SWITCH REGISTER AS SPECIFIED IN STEP D. 
AND TYPE A CAR. RETURN. 


NOTE: IF ANY OF THE ABOVE ITEMS 2 THRU 7 WERE CHANGED BY ENTERING 
NEW VALUES,THE NEW wg BECOMES THE DEFAULT VALUE FOR SUBSEQUENT 
RESTARTS OF THE PROGRAM 
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C. MANUAL PARAMETER INPUT FROM SWITCH REGISTER 
1. _ THE PROGRAM HALTS FOR ISR(INTERFACE SERVICE ROUTINE) SPECIFICATION 
SWR14=SETUP DM-11B ISR 
SWR13=SETUP DN-11 ISR 
SWR=000000=SETUP VARIABLE ISR 


2. THE FOLLOWING HALTS ARE REPEATED FOR EACH ISR SPECIFIED. 
~8B — OVERLAY. (EACH ENTRY SFT SWICHES THEN HIT CONTINUE.) 


: HALT FOR A 
D. HALT FOR INTERFACE PARAM #1 (SEE SECT. ngs 0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION) 
. HALT FOR INTERFACE PARAM #2 (DN11 AND DMBB PARAMETERS ARE DISCUSSED IN SECT. 10.0 OF THE MONITOR. 
GO BACK TO STEP A IF THIS SETUP WAS POR PR DN OR DMB. 


3. HALT FOR OPERATIONAL SWITCH SETTINGS. (SEE STEP D.) 
A. PRESS CONTINUE TO START TESTING 


BEFORE ATTEMPTING TO RUN THIS PROGRAM, THE OPERATOR MUST 


U NCL THE TYPE OF OF 
INTERFACE BEING USED AT THE OTHER CPU AND THE MODES OF OPERATION, 
DATA AND PARAMETERS TO BE USED AT EACH CPU. 


THIS WILL REQUIRED VOCAL COMMUNICATION WITH THE OPERATOR 
AT THE OTHER CPU UNLESS ITS CONFIGURATION AND OPERATION 
ARE FIXED AS A TEST CENTER. 


AFTER. yp tg THAT THE EQUIPMENTS ARE COMPATIBLE AND 
AGREEING ON THE MODE AND VARIABLE PARAMETERS TO BE USED, 

THE SYSTEM WHICH IS TO RECEIVE DATA hong SHOULD BE 

LOADED AND STARTED. IF THE MODEM BEING USED ON THIS SYSTEM 
HAS AN AUTOMATIC ANSWER FEATURE, IT SHOULD BE ENABLED. 


THE SYSTEM WHICH IS TO TRANSMIT FIRST SHOULD THEN BE LOADED 
AND STARTED AND THE eT ESTABLISHED EITHER MANUALLY 
OR AUTOMATICALLY (VIA DN-11) 





; 
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AS 4 
W14 HAS NO ak IF Sw04=0 
INHIBIT ERROR TYPEOUTS 
INHIBIT ALL _TYPEOUTS EXCEPT ERRORS 
AND S TYPED 


DATA SELECT (WITH SwO9) 

ATA_SELECT (WITH SW10) 

1 GET DATA FROM OPERATOR 

1 TEST MESSAGE + ($A QUICK BROWN FOX) 

1 TEST MESSAGE #2 ($8 NUMERICS) 

1_TEST MESSAGE #3 ($C_COMTEST/QUICK BROWN FOX/NUMERICS) 

TRANSMIT RECEIVED DATA (INTERNAL LOOPBACK MODE) 

SWO7=1 DO NOT TEST RECEIVED DATA 

SWO6=1 MONITOR TRANSMITTED DATA ON CONSOLE TTY.* 

SWOS=1 MONITOR RECEIVED DATA ON CONSOLE TTY.* 
* IN MANY CASES, NOT ALL DATA WILL APPEAR ON THE CONSOLE 
TTY. THIS IS ESPECIALLY TRUE WHEN THE COMM INTERFACE IS 
RUNNING AT A FASTER BAUD THAN THE CONSOLE, BUT EVEN AT EQUAL 
OR SLOWER BAUDS, ALL CHARACTERS MAY NOT APPEAR ON THE CONSOLE. 


SWO4=1 RETURN TO MONITOR FOR END PASS 
WHEN SWO04=0 PROGRAM LOOPS IN THE OVERLAY NEVER RETURNING TO THE MONITOR. 
INTERNAL LOOPBACK MODE 
EXTERNAL LOOPBACK MODE 
ONE-WAY-IN MODE 
ONE-WAY-OUT MODE 
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nes PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 
A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED Le cman hk TESTS 

THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF FOUND A 

SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176) IS DEFAULTED TO. 

IF THIS IS THE CASE, UPON EXECUTION THE CONTENTS OF THE SWREG ARE 

DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 


(IE) SWR=XXXXXX  NEW= 
POSSIBLE RESPONSES ARE: 


1. <CR> IF NO CHANGES ARE TO BE MADE 

2. 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW — REGISTER 
W LAST DIGIT FOLLOWED BY <CR> 

3. *U O ALLOW REENTERING VALUE IF ERROR IS COMMITTED 
KEYING IN SWREG VALUE. 


BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING “G 

(CNTL_G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (IE) ERROR ROUTINES. AFTER HALTS END OF PASS, AND OTHER 
APPLICABLE AREAS 


IF OPERATOR SPECIFIED DATA WAS INDICATED, THE PROGRAM WILL TYPE A 
REQUEST FOR THE DATA. DATA MAY BE ENTERED m4 ASCII CHARACTERS OR OCTAt CODE. 
TYPE IN THE DATA TERMINATED WITH A CR. OCTAL CODE MAY BE eATEeD BY TYPING AN 
“(UP ARROW) FOLLOWED BY THE OCTAL CODE (IN pa | RANGE 000 TO 377) 
SEPERATED BY SPACES AND TERMINATED BY “(UP ARROW). 

I1.£. ABCD* 000 123 377% EFG (CAR. RETURN) 


A TYPICAL SWITCH SETTING FOR i eee a SAE THIS SETTING USES 
INTERNAL LOOPBACK MODE, LOOPS IN OVERLAY, MONITORS TRANSMITTED AND RECEIVED 
DATA ON THE CONSOLE TTY, AND TESTS RECEIVED DATA USING TEST MESSAGE #3. 


A TYPICAL SWITCH SETTING FOR FULL~DUPLEX=003144 THIS SETTING 
IS THE SAME AS ABOVE EXCEPT IT USES THE EXTERNAL LOOPBACK MODE. 


ALL STANDARD MESSAGES(TEST MESSAGES 1-3) ARE PRECEDED BY 2 FJLL CHARACTERS(177), 
AND ARE FOLLOWED BY A CR(015), LF(012) ,RECEIVE TERMINATING CHARACTER(001), 

4 FILLS(177), AND A TRANSMIT TERMINATING CHARACTER(000). DURING TRANSMISSION, 
WHEN A 000 CHARACTER IS SEEN THE TRANSMISSION IS ST OPPED ipa RECEPTION, 

WHEN A 001 CHARACTER IS RECEIVED, THE RECEIVER IS SHUT OFF 

IF THE MESSAGE WAS INPUTED 8Y THE OPERATER, THE TERMINATING CHARACTERS ARE ADDED. 
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TEST MODES 
INTERNAL LOOPBACK MODE 


1. THE OVERLAY WAITS TO RECEIVE A MESSAGE (TERMINATED BY <001>) 
2. VERFIES THE DATA AGAINST THE DATA SELECTED BY SWO9 AND SwW10(SW7=0) 
3. TRANSMIT THE DATA SELECTED BY co SW10 (SW8=0) OR 
TRANSMIT THE RECEIVED DATA (SW8=1) 
4. RETURNS TO MONITOR FOR ‘END PASS*’ (SW4=1) OR 
GO TO STEP 1. (SW4=0) 


EXTERNAL LOOPBACK MODE 


THE OVERLAY SETS REQUEST TO SEND 
WAIT FOR CLEAR TO SEND 
TRANSMITS THE SELECTED DATA 


RESETS REQUEST TO SEND 

WAIT FOR MESSAGE TO BE_RECEIVED 

VERIFIES THE DATA (SW07=0) 

RETURNS TO MONITOR FOR "END PASS''. (SWO04=1) OR 
GO TO STEP 1(Sw04=0) 


ONE-WAY-IN MODE 


THE OVERLAY WAITS FOR MESSAGE TO BE RECEIVED. 
VERIFIES THE DATA(SWO7=0) 

RETURNS TO MONITOR FOR ‘END PASS''(SWO4=1) OR 
GO TO STEP 1 (Sw04=0) 


ONE~WAY-OUT MODE 


THE OVERLAY SETS REQUEST TO SENN 

WAITS FOR CLEAR TO SEND 

TRANSMITS SELECTED DATA 

RETURNS TO MONITOR FOR ‘END PASS''. (SWO04=1) OR 
GO TO STEP 1 (SW04=0) 


THE OVERLAY IS THEN ENTERED AND A CONNECTION ESTABLISHED EITHER 
MANUALLY OR AUTOMATICALLY. 


IF ONE-WAY-IN OR INTERNAL LOOPBACK MODES ARE SELECTED. 
THE OVERLAY WILL SET DATA TERMINAL READY AND WAIT FOR DATA. 


IF ONE-WAY-OUT OR EXTERNAL LOOPBACK MODES WERE SELECTEC. 
THE OVERLAY WILL SET DATA TERMINAL READY AND REQUEST TO SEND. 
Ban a WILL THEN WAIT FOR CLEAR TO SEND BEFORE ATTEMPTING TO 


THE PROGRAM WILL PRINTOUT A ‘WAITING FOR CLEAR TO SEND'' 
MESSAGE AND THE CONTENTS OF THE XMIT CSR EVERY 60 SECS. 
UNTIL CLEAR TO SEND IS ASSERTED. 
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IF SWO4=0 THE OVERLAY WILL CONTINUE TO 
TRANSMIT/RECEIVE DATA. 


IF SWO4=1 THE OVERLAY WILL RETURN 
TO THE MONITOR AND TYPE ‘END PASS"'. 


IF BOTH SWO4=1 AND SW14=1, THE PROGRAM WILL REQUEST 
+H — PARAMS AFTER ONE PASS OF THE SELECTED 


TEST EXECUTION MAY BE Vc: ata BY TYPING THE FOLLOWING 
CHARACTERS ON i I fe 
LINE FEED = RESTAR T PROGRAM. At LOCATION 200. 
QUESTION MARK = PRINTOUT FIRST 8 WORDS OF INPUT BUFFER. (ASCII) 
THEN TYPE EITHER: 
*WAXAXXKX TO PRINTOUT THE 8 WORDS 
AT LOC XXXXXX. 


*BXXXXXM TO PRINTOUT THE 16 BYTES 
AFTER LOC XXXXXX. 


*C TO CONTINUE 


PROGRAM MUST BE RESTARTED AT 200 AFTER PRINTING. 
CARRIAGE RETURN = RESTART AT REQUEST FOR NEW OPERATIONAL SWITCHES. 


PROGRAM AND/OR OPERATOR ACTION 


IF THE OPERATOR WISHES TO MANUALY EXAMINE THE TRANSMIT OR RECEIVE 
BUFFERS, DO THE FOLLOWING; TO FIND THE STARTING ADDRESS OF THE RECEIVE 
BUFFER, LOAD ADDRESS 11020 AND EXAMINE. TO FIND THE STARTING ADDRESS 
OF THE TRANSMIT BUFFER. LOAD A ADDRESS 11022 4ND EXAMINE. 


NORMAL HALTS 
SEE SECTION 4. 


ERRORS 
ERROR REPORT INC 


THE ONLY ERROR REPORT FROM THE CONTROL PROGRAM OCCURS IF THE 
INTERFACE SPECIFIED IS NOT LOADED. 


IF DATA IS RECEIVED AND SWITCH 7 (NO DATA COMPARE) 

IS RESET, THE DATA WILL BE COMPARED AGAINST THE gt: He 
DATA AFTER A LINE FEED CHARACTER IS RECEIViD. IF _— FE ISA 
MISMATCH, THE FOLLOWING ERROR REPORT IS PRINTED 


RECEIVED DATA=RRRRRR 
DATA SHOULD BE TTTTTT 
DATA COMPARE ERROR; BAD DATA=BBB GOOD DATA=GGG 
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WHERE RRRRRR_IS THE RECEIVE BUFFER (UP TO 512 oe 
TTTTTT IS THE TRANSMIT BUFFER (UP TO 512 CHARACTERS) 

BBB IS THE BAD DATA CHARACTER 

GGG IS THE GOOD DATA CHARACTER 


IF THE INTERFACE DETECTS A DATA ERROR, THE ‘eemamnenes 
WILL BE PRINTED BEFORE THE DATA IS COMPARED 


THERE WAS A RECEIVER ERROR. RECEIVER DATA REGISTER =XXXXXX 


WHERE XXXXXX IS THE CONTENTS OF THE RECEIVER DATA REGISTER 
THE LOW BYTE IS THE DATA, AND THE HIGH BYTE IS THE ERROR BITS. 


IF A RECEIVE TERMINATING CHARACTER<001> iS NOT DETECTED 
WITHIN 512 CHARACTERS A ‘BUFFER FULL"* PRINTOUT WILL OCCUR. 
RESTRICTIONS 

THE ney D4 THIS PROGRAM REQUIRES yo =e _e 


MS_IS ALWAYS OPERATING IN A FIXED 
MODE. THE FOLLOWING TABLE LISTS THE VALID COMBINATIONS: 


OOPBACK 
EXTERNAL ~LOOPBACK EXTERNAL=LOOPBACK (FULL DUPLEX) 


WHEN THE ah 1 a LINK INVOLVES MODEMS THE FOLLOWING 
RESTRICTION APPLY 


IF RUNNING IN FULL DUPLEX MODE BOTH SYSTEMS 
MUST BE IN EXTERNAL LOOP BACK MODE. 


pe SYSTEMS SHOULD BE RUNNING IDENTICAL ROUTINES. 


SWITCHES 14, 13. 7,4 SHOULD BE THE SAME 
ON BOTH CPU'S 


PROGRAM IS WAITING a) A _SCAN ROUTINE AND TYPES QUT 
"MATTING MESSAGE"', IF AN INCOMING MESSAGE STARTS DURING 
OUT, IT WILL BE LOST BECAUSE THE TYPEOUT PRIORITY 
LEVEL - THIS WILL RESULT IN OVERRUN OR SILO OVER- 
DEPENDING ON THE DEVICE.TO AVOID = A ila 
em SWITCH 13 UP. IF OVERRUN DOES OCCURE DURING A 
TYPEOUT THE PROGRAM SHOULD BE RESTARTED. 


IF USING AN ASYNCRONOUS DEVICE, MODEMS AND THE 

pobre TEST STATION AND INITALIZE DOES NOT CLEAR THE 
CONNECTION (EXAMPLE THE DJ11) IF THE PROGRAM IS Be STATED 
IN THE MIDDLE OF A MESSAGE AT LOC 204 OR &Y HITTING C 

AN IMMEDEATE ERROR MESSAGE FROM MAYNARD WILL BE RE- 
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CEIVED. THIS IS BECAUSE THE TEST STATION IS STILL LOOKING 

THE REST TOF THE INTERUPT ED MESSAGE. TO AVOID THIS 
ERRGR ESTART PROGRAM ONLY AT THE END OF THE MESSAGE 
CURRENTLY BEING TRANSMITTED. 


MISCELLANEOUS 


ITEP WAS CHECKED GUT USING THE FOLLOWING BELL TELEPHONE MODEMS. 
201A (HALF=DUPLEX SYNCHRONOUS 2000 BAUD) 
202C (HALF=DUPLEX ASYNCHRONOUS 1200 BAUD) 
103A (FULL=DUPLEX ASYNCHRONOUS 110 BAUD) 


PROGRAM DESCRIPTION 


THE DQ11 INTERFACE SERVICE PARAMS ARE SETUP, AS SPECIFIED BY THE OPERATOR, 
BY THE ITEP CONTROL PROGRAM. 


TIME: PROVIDES A MEANS OF MEASURING ELASPED TIME. IT IS INCREMENTED 
EVERY SECOND BY A CLOCK INTERRUPT ROUTINE IN ITEP. 


WHEN THE OVERLAY IS ate ENTERED BY ITEP _AT LOCATION START:, 
ME AND C 


IABLES N SETUP. 
THE SELECTED ROUTINE DETERMINED BY THE MODE IS THEN ENTERED 


THE OVERLAY THEN LOOPS, IN ge thee dE SOW! .IF “ONE WAY IN’' MODE 
WAS SELECTED. $OWO,IF ‘ONE WAY OUT’ MODE Gas SELECTED. 

SILB, IF ‘INTERNAL LOOP BACK’ MODE WAS SELECTED. 

$XLB,1F "EXTERNAL LOOP BACK’’ WAS SELECTED. 


SOWI: IN THIS ROUTINE THE RECEIVER IS INITIALIZED AND PROGRAM 
” ISH.IF NOTHING IS RECEIVED 
SAGE IS TYPED. WHEN THE RECEIVER IS 
DONE, THE PROGRAM CHECKS DATA IF SWITCHES PERMIT,AND TYPES END 
PASS DEPENDING ON SWITCH SETTINGS. 


$OWO: THE TRANSMITTER IS pitied AND PROGRAM LOOPS 
WAITING FOR TRANSMITTER TO FINISH,A ‘WAITING’’ MESSAGE IS TYPED 
EVERY 60 SECS IF THERE IS NO ACT ION, WHEN THE TRANSMITTER IS 
DONE, THE PROGRAM EITHER LOOPS BACK TO $OWO OR TYPES END PASS 
DEPENDING ON SWITCH SETTINGS. 


$ILB: THE RECEIVER iS INITIALIZED AND PROGRAM LOOPS WAITING FOR 

RECEIVER TO FINISH, A ‘WAITING’ MESSAGE IS TYPED EVERY 60 SEC 

F Cc S PROGRAM CHECKS DATA IF SWITCH 
AND END PASS IS wee IF SWITCH SETTINGS PERMIT. 

THEN THE TRANSMITTER IS INITIALIZED, A ‘WAITING’ MESSAGE IS TYPED 

EVERY 60 SEC IF NO ACTION. WHEN TRANSMITTER IS DONE PROGRAM RETURNS 

TO START OF ROUTINE. ($ILB) 


28: IF IN HALF DUPLEX THE TRANSMITTER I> ag A 


ZE 
"WAITING MESSAGE IS TYPED EVERY 60 SEC IF THERE IS 


] 
I 
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DONE THE RECEIVER IS INITIALIZED 

E Oar EVERY 60 SEC IF THERE IS NO ACTION. 
TA_IS CHECKED IF SWITCH SETTINGS 
PED IF SWITCHES ALLOW. THE PROGRAM 


L_ DUPLEX IVER AND TRANSMITTER ARE INITIALIZED 
a Nwalt ING" ME YPED EVERY 60 SEC_IF THERE IS NO 
AcTION. N 80 “a 
CHECKED, END PASS IS T 
ON THE SWITCH SETTINGS 
OR 


VER AND TRANSMITTER ARE DONE DATA IS 
D AND PROGRAM LOOPS TO $XLB DEPENDING 


THE RETURN TO MONITOR ROUTINE FOR END PASS AT EOP: 

LOCKS OUT gh ty AND SAVES THE TRANSMITTER INTERUPT ENABLE 
BIT AND ALL GENERAL REGISTERS. IT THEN RETURNS TO THE MONITOR 
TO TYPE AEND PASS''. THE MONITOR CHECKS SW14 IF YP IT RETURNS 
TO ENTER:, OTHERWISE IT RESTARTS THE PROGRAM. 


ENTER: IS ENTERED FROM THE MONITOR AFTER TYPEING ‘END PASS"’, 
IT RESTORES THE GENERAL REGISTERS AND THE TRANSMITTER CSR 

AS SAVED IN EOP. THE DELAY FLAG IS SET AND PROGRAM RETURNS TO 
THE SCAN ROUTINE (OWO,OW!,1LB,XLB) WHERE IT CAME FROM. 


THE INITIALIZE TRANSMIT SUBROUTINE AT STARTX: 
SETS UP THE INTERFACE AND POINTERS NECESSARY TO 
INITIATE A TRANSMIT OPERATION. 
AFTER SETTING “DATA TERMINAL READY'’ AND ‘REQUEST TO SEND’’ A CHECK 
1S MADE ON PARAM2 TO DETERMINE IF HALF DUPLEX OPERATION 
WAS SELECTED BY THE OPERATOR. IF IT WAS, THE 
gr the WAITS FOR _ TO SEND 
A "WAITING FOR CLEAR TO SEND’ PRINTOUT OCCURS 
EVERY 30 SECONDS UNTIL CLEAR TO SEND IS ASSERTED. 


THE INITIALIZE RECEIVED SUBROUTINE AT STARITR: 
SETS UP THE INTERFACE AND POINTERS NECESSARY TO 
RECEIVE A MESSAGE. 


THE TRANSMIT INTERRUPT SERVICE ROUTINE, 

AT XISR:, IS og VIA TRANSMIT INTERRUPTS 
FROM THE INTERFACE. 

A TEST IS MADE TO SEE IF THE LAST CHARACTER 
TRANSMITTED WAS A NULL (ALL ZEROS) CHARACTER. 
IF IT WAS; THE g TRANSIT. COM IN_THE INTERFACE 


; NEXT CHARACTER IS TRANSMITTED 
AND PRINTED ON THE TTY IF THE MONITOR TRANSMIT 
SWITCH IS SET. 


ri; RECEIVE INTERRUPT SERVICE ROUTINE 

RISR:, IS eeTence VIA RECEIVER INTERRUFTS 
FROM THE INTERFACE. 
ne RECEIVED CHARACTER IS STORED IN 

HE INPUT BUFFER AND PRINTED ON THE TTY IF 
THE MONITOR RECEIVER a Mi IS SET. 
IF THE INPUT BUFFER IS FULL, A “BUFFER FULL 
PRINTOUT WILL OCCUR. THIS INDICATES THAT «A 
LINE FEED CHARACTER WAS NOT RECOGNIZED 
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ms 3 RECEIVED DATA (WITHIN 1000 CHARACTERS). 
HARACTER IS A LINE FEED, 
IS RESET AND THE 


FLAG IS SET. 

RROR’ IS DETECTED AT RISR:, THE 
L_BE SAVED AND PRINTED OUT 

FTER THE COMPLETE MESSAGE HAS BEEN RECEIVED. 


HE DATA TEST SUBROUTINE AT TESTD: IS 
inte A COMPLETE MESSAGE HAS BEEN 
IF A *RECEIVE ERROR* HAD BEEN DETECTED, 


RS AR IF A MISMATCH 
IS DETECTED, THE COMPLETE CONTENTS OF THE 
INPUT BUFFER AND GOOD DATA IS PRINTED. 


DQ11 RESTRICTIONS 


THE DQ11 HAS TWO MODES OF OPERATION IN ITEP, NORMAL( WHICH 
INTERUPTS BS ye TWO CHARACTERS), AND HI~BAUD (ONE for is PER 
MESSAGE, THE WHOLE MESSAGE IS TRANSMITTED OR RECEIVED ON A 
N_IN HI-BAUD MODE, DATA CANNOT BE 
E TTY. IF SW 5=1 (MONITOR RECEIVED DATA) 
WILL BE TYPED AFTER THE WHOLE MESSAGE IS RECEIVED. 
IF SW 6=1 (MONITOR penn a DATA) A *'T’’ WILL BE TYPED AFTER THE 
MESSA TTED. IN NORMAL MODE, EVEN IF THE CONSOLE 
BAUD AS THE 0Q11, NOT EVERY CHARACTER 
BECAUSE OF THE TWO CHARACTER PER te 
OPERATION, IN THIS CASE EVERY OTHER CHARACTER WILL BE TYPED 
IF DATA MONITORING IS SELECTED. HI-BAUD MODE yn EAD IN PARAMA2) 
SHOULD BE USED FOR BAUDS OF 40,000 OR HIGHER. NORMAL MODE IS 
SUFFICIENT FOR BAUDS LOWER THAN 40,000 . 


PARAMETERS FOR THE DQ11 
PARAM#1 IS NOT USED (0) 
PARAM#2 (LOW BYTE) 
BIT 0 FULL DUPLEX (1), DEFAULT= HALF pre (0) 
BIT 1 HI-BAUD (1), DEFAULT= NORMAL ( 
(BITS 0,1 ARE NOT LOADED INTO ANY DQ11 REGISTERS, THEY ARE ONLY SOFTWARE FLAGS) 


PARAMA2 a BYTE) IS LOADED INTO THE SYNC REGISTER. 
S 8-15 SYNC CHARACTER, DEFAULT= 26 (26) 


PARAM#3 IS NOT USED (177777) 
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FERRARA AA AERA ARAAAEREREAERRERAKREREARRRRRERRRERRERRERRERKEERE 


DQ11 INTERFACE SERVICE PARAMS 


FERRARA ARERR ERAEERERAEAERREREERERRAERREERRERERRERERRRERR 


-=11000 
sASCIZ /DQ / 
160010 


828 


2 ISR 

;BUS _ADDRESS 

: VECTOR ADDRESS 
sPRIORITY 
7PARAM #1 

; PARAM o 

ZINITIAL READ DATA ADDRESS 
: INITIAL_XMIT DATA ADDRESS 
;LINE SETTLE DELAY FLAG 


“ADDR OF BIN TO OCT TYPE ROUTINE 
TIMER 


TADDR OF START OF PROGRAM 
; TRANSMITTER TERMINATING CHAR. 
:RECEIVER TERMINATING CHAR. 


aah ao all 
AMO 


I 
SE TTLE: 


B2016: 
TIME: 


eloeleleleleleoleolelelele) 


REVSRRVS 
NOOCSCSCSCO 


TX. TERM: 
RX. TERM: 


wlolejlelelelelelelelelelelelelelolelelelelo) 
8 


a ek DD cD ed ee ed ed ed ed ed nd ed 
Se eS Sh SS SS SS SS Ss Ss Ss Ss YS 3 SS SY Ss SS SS 


RRERRRR 
AskMm--0ooO 
s 


SwWR: 177570 
DISPLAY:177570 
SERRE REE EERERREERRERE EERE EEE EEE EEK EERE ERE 


CONSTANTS + WORKING STORAGE 


e 
PERERA REE REE ERE ER EREEERE EERE ERERERKREEEREREEREEEREKEEEEE 


:XMIT COMPLETE FLAG 

RCV COMPLETE FLAG 

:DATA_SET STATUS CHANGE FLAG 
B1T13=20000 ; INHIBIT PRINTOUTS 


;SAVED XMIT CSR 
SAVED RCV CSR 
:RCV CSR SAVED ON ERROR 
RCV DATA REG SAVED ON ERROR 
:RCV CSR SAVED ON DS CHANGE 


eXMIT CHAR COUNT 
RCV CHAR COUNT 
[RCV DATA ADDR. 
:XMIT DATA ADDR. 


ooo 


Oooooc BOOCOCoCO GCOOCO 
oon 
RSA RNS 


177566 
000001 FULL .DUPLEX=000001 
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655 ERA RREREEEEEREKEERRERERERRE EEE KERR ERR EE 
656 : DQ11-x INTERFACE SERVICE ROUTINE 

657 FEAR ARERER ARR ERREEEAEEEEREREEAEREKEEREEEERERREEEREEREEREERREEEREKEEE REE 
658 011106 000240 START: NOP 

659 011110 017700 177730 MOV as sSETUP MODE IN RO 

660 011114 042700 177400 BIC #177400 RO ZSTRIP JUNK 

661 011120 013702 011006 MOV RIV, oR : SETUP 

662 011124 012722 015052 MOV MRISR, (R2)+ INTERRUPT 

663 011130 013722 011010 MOV PRIOR, (Re)+ > VECTORS 

664 011134 012722 014230 MOV MXISR, (R2)+ 

665 011140 013722 011010 MOV PRIOR, (R2)+ 

666 011144 013706 011004 MOV BA, R4 :SETUP BUS ADDR INDEX 

667 011150 013714 011012 MOV PARAM], @RCSR  ; SETUP VARIABLES 

668 011154 013702 011014 MOV PARAM2,R2 ; 

669 011160 042702 000001 BIC #0001,R2 

670 011164 010264 000002 MOV R2 XCSR(R4):IN CSR'S 

671 011170 012703 000017 MOV #17,R : SET-UP TO CLEAR ALL 16 LOCATIONS 
672 011174 112764 000014 000005 MOVB = #14. REG(RCSR) [OF THE SEQUENCE CONTROL REGISTER 
673 011202 110364 000001 1$: MOVB _—R’3, 1 (RCSR) :CLEAR A LOCATION OF THE 

674 011206 005064 000006 CLR SEC (RCSR) SSEQUENCE CONTROL REGIST ER 

675 011212 005303 DEC R3 SHAVE ALL 16 LOCATIONS BEEN CLEARED? 
676 011214 100372 BPL 1$ :IF NO THEN BRANCH, OTHERWISE PROCEED ON 
677 011216 005014 CLR @RCSR [CLEAR THE RX CSR 

678 011220 005064 000002 CLR XCSR(R4) [CLEAR TX CSR 

679 011224 005064 CLR ERR(R4) > CLEAR THE ERROR REGISTER 

680 011230 012703 000020 MOV 16. .R3 > SET»COUNTER 

681 011234 052764 010000 000004 2$: BIS Wiiie. ERR(RG) :SET WRITE ENABLE 

682 011242 042764 060000 000004 BIC #60000,ERR(R4) CLEAR EXT MEM BITS 

683 011250 005064 000006 CLR SEC(R4) :CLEAR THE SECONDARY REGISTER 
684 011254 105264 000005 INCB _—REG(R4) :GET NEXT REGISTER 

685 011260 005303 DEC R3 [DONE YET?? 

686 011262 001364 BNE 2$ [KEEP CLEARING 

687 011264 112764 000012 000005 MOVB #12,REG(R4) :SELECT THE MISC REGISTER 

688 011272 012764 000040 000006 MOV WBITS,SEC(R4) ISSUE A MASTER CLEAR 

689 011300 005027 014220 CLR ERRORS 

690 011304 052764 000010 000002 BIS WBIT3,XCSR(RG) ;:ENABLE ERROR INTERUPTS 

691 011312 005037 011032 CLR TIME ‘RESET TIMER 

692 011316 005037 013274 CLR DELAY [RESET DELAY INDICATOR. 

694 

695 ;ROUTINE TO FIGURE RX AND TX WORD COUNTS. 

697 [FOR HIGH BAUD THE TX AND RX MESSAGE S MUST BE IDENTICAL 

698 :THE DATA WILL BE TRANSFERED AT A BURST MO 

699 ; THE TXWC AND RXWC SET FOR HOW MANY CHARS TO DEAL WITH. 

701 011322 KOK: 

702 011322 013702 011022 MOV IXDA,R2 

703 011326 005003 CLR R3 

704 011330 005203 1$: INC R3 

705 011332 123722 011040 CMPB Ss TX. TERM, (R2) + 

706 011336 001374 BNE 1$ 

707 011340 005403 NEG R3 

708 011342 010337 011062 MOV R3, TXwC 

709 011346 013702 011022 MOV 1XSA,Re 

710 011352 005003 CLR R3 
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2$: R3 
011041 RX. TERM, (R2)+ 


R3,R2 
5403 R3 
010337 011064 R3,.RXWC 
pea aunagat any mre ep eng entra 
; ROUTINE USED TO GOTO 
: SUBROUTINE DEPENDENT 
: ON MODE SELECTED 


STITT TT TTT TTT TTT TTT TTT TINT TTT 


011032 GO: 


011572 
000002 
011464 
000010 


011670 
000004 


SERREREREEEREEW 
NANVOKSANARORSR 


012120 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


por ome Som om Se fe Pm Pe Pe fh = Pe 
F ar 
sy 
Ss 


Ss ss ss SS) SS) Ss 3) SS) SS 


Oo 


alahedahalaheledebalobebahedabelobebelaiehoieatosebelatelplolabebeletabelstedelateleieiahebalebabebelaielaielotelateleieieleieletaietel 
ROUTINE USED IF ‘ONE WAY IN’' MODE WAS SELECTED. 
NOTE THAT WHEN IN THIS MODE HALF DUPLEX IS THE 
ONL Y — AVAILABLE. 
"ONE WAY IN’ MEANS THAT ONLY THE RECEIVER IS 
ENABLED. THE TRANSMITTER IS NEVER *'TURNED ON 


I ne a Bhi, Betty kl Be IM ce co EE 


a" 
Wwe 
NO 


014556 7 PC,STARTR 
040000 : #Ri LG, STAT 


BN 
011032 pe ee 


ARCSR,R2 
000002 ‘epeaned ania 


011032 TIME 


So 
ws 


eh 2 Seed 


eleleleleleleleleje) 
NRW 
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011524 000762 
011526 032777 000200 177310 28: 
0115 001002 
012510 
040000 
000020 177270 
011570 013276 


0115 012350 
011570 4$: 


3$: 


[ISU ISIS IOS IIT TIOITIOITIO IOC IOI IO IOI IIIT IO IO TI IIR 
: ROUTINE USED IF ‘ONE WAY OUT’ WAS SELECTED. 

; NOTE T. oad WHEN IN THIS MODE HALF DUPLEX IS THE ONLY 

; MODE AVAILABLE. 

: "ONE WAY OUT’ MEANS THAT ONLY us 3 TRANSMITTER IS 

; ENABLED. THE RECEIVER IS NEVER ‘TURNED ON. 


TAA EIS OOO SIE ISOTONIC IEIEIOUIISOIOOOOII OUI IIo tr 


$0w0: 
013302 JS PC, STARTX 
IME 


011032 T 
100000 1$: _— 
011032 000100 | aieathiate 


ARCSR,R2 
000002 XCSR(R4) RB 
011032 TIME 
BR 1$ 


100000 2$: AXFLG, STAT 
000020 177172 —— 


3 

013276 #3$ ,BACK 
EOP 
$0w0 


011666 
012350 
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Beet titi iti iri i titi titi itititititititit iti titi i 
o's th we Z oginrg’ LOOP BACK’' WAS SELECTED. 
NOT N IN THIS MODE; HALF DUPLEX IS THE 


ANS_THAT THE RECEIVER IS ‘TURNED ON'’ 
COMLPETE MESSAGE IS RECEIVED. IF Peas IS TO BE CHECKED 
IT IS; IF_‘END PASS'' IS DESIRED; IT IS GIV 
THEN THE TRANSMITTER IS ENABLED. AFTER THE WHOLE ME SSAGE 
IS TRANSMITTED; THE CYCLE IS REPETED AS ABOVE. 


FERRER EERE RRR 


$ILB: 
014556 JS PC,STARTR 


011032 TIME 
040000 1$: oceania 
011032 wo 


Bete Se Se Be Be Be Be Be 


@RCSR,R2 
000002 aN) Me 
011032 TIME 
BR 1$ 
000200 177100 : Qa 
012510 PC, TESTD 
040000 : #RFLG, STAT 
177060 a ae 
013276 en 
177036 : aSwWR 7 USE EXTERNAL DATA? 
7$ IF NO 
R2 SET POINTER 
R3 +7} POINTER 
XDA ;SETUP XMIT DATA ADDR 
(R3)+ 
;LOOP | 
-(R3) ; INSERT A FILL CHAR 
R ADDRESS 
000177 (R3)+ “INSERT ANOTHER FILL 
: INSERT ZERO CHAR 
011032 
013302 
100000 


AVSREKSANSAS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NNN NNN NNN NNN GG 


REF 


#XFLG, STAT 
BNE 6S 
011032 TIME #100 
@RCSR,R2 
000002 KCSR(RG) RZ 
011032 TIME 
BR 


5$ 
100000 AXFLG,STAT 
011670 $i.6 
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ee ROUTINE USED IF “EXTERNAL LOOP BACK’ WAS SELECTED, 


oy ee od eux EXTERNAL LOOP BACK’’ WAS SELECT 


TURNED ON (IF HALF DUPLEX) oa WHOLE SAGE ITTED; 
THEN THE RECEIVER IS ENABLED. AFTER THE WHOLE MESSAGE IS RECEIVED 
DATA WILL THEN BE CHECKED IF DESIRED AND END PASS WILL 
3 GIVEN” IF DESIRED. ay THE CYCLE IS REPEATED 

S ABOVE. _IF RUNNING IN FULL DUPLEX THE PROGRAM 
WAITS FOR BOTH THE RECEIVER AND TRANSMITTER TO 
FINISH THEN RESTARTS THE RECEIVER AND TRANSMITTER. 


FERRARA RRA EEREREERREREEERRERREEREEAEERERREKEREEREREREERERE ERE 


$XLB: 
000001 011014 B imate at 


014556 PC,STARTR 
1$: PC,STARTX 


TIME 
2$:  seaaiate 
7$: ARFLG, STAT 
011032 TIME 4100 
2s 


RoPoNoNoNoNoNoNoNonoNoNononory 
asada an ara Braasaamatseed 
WN WV WWI 
RNSRSEVSEAKVYSNS 


864 

865 

867 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

881 

883 

885 

887 

888 

889 @RCSR,R2 
890 000002 XCSR(R4) ,R3 
891 0 104001 1 
892 011032 TIME 
893 012206 000757 
895 

896 

897 

898 

899 

901 

902 

903 

904 

905 

907 

908 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 


BR 2s 
000001 011014 3 Fe Pe 


100600 #XFLG,STAT 
014556 PC,STARTR 


BR 
000001 0611014 : Bg LER PS 
100000  tateeaahtad 
011032 000100 er’ -#100 


@RCSR,R2 
000002 XCSR(R4), oR3 


011032 TIME 
4$ 


BR 
100000 ¢ #XFLG,STAT 
: 4 STAT 


TIME 
176524 #NODAT , ASWR 
BNE 5$ 


012510 PC, TESTD 
000020 176510 ; oe 
012120 013276 #2%LB,BACK 
613380 d EOP 


040000 
011032 
000200 
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SURI ritink 
3 ROUTINE TO RETURN 
; TO MONITOR FOR 

ND PA 


° ° 
LEER REE RR ERR EREEEE 


9 2350 EOP: 


STPS ,PRTY7 SET PS PRIORITY TO 7 
MOV XCSR(R4) ,QTPIE SAVE TX CSR 
M*C<TIE>,QTPIE ;CLEAR ALL BUT TX IE. 
ATIE,XCSR(R4) CLEAR TX IE (EVEN M4 T WASN'T SET) 
#ENTER a? 4= 


TER_5 
RETURN TO CONTROL PROGRAM 


RESTORE RC 


32R5 *RESTORE R5 
81S QTPIE,XCSR(R4) ;IF ORGINALLY SET; SET TX IE 
QTPIE: 000000 


013274 
000002 


SEEKER EEEEKKKKKKE 


SUBROUTINE TO CHECK 
RECEIVER DATA. 
SAREE REE ERE ER ERE ik 
013746 011056 : V ERDBR, -(SP)  ;WAS THERE A RECEIVE ERROR? 
001413 TSTDAT BR IF NO 
020000 176320 Tie. -@SWR ae 


BNE :BR 
012720 -MSGO 3<15><12>THERE WAS A RECEIVE ERROR. RBUF= 
176272 ty [PRINT CONTENTS OF RBUF 


T 3<15><12> 
TSTDAT: ;SETUP XMIT DATA ADDR 
011020 MO I R2 > SETUP RCV DATA ADDR 
SCAN4: - ‘DATA OK ? 
SCANS ;BR IF OK 
011040 MPB a‘ , :I1S IT END OF DATA 
TESTDX 


E :BR IF YES 
000002 ye. the? 
012602 Re, 1$ 


lelelelelelelelelelelelelelelelelelo) 
™N N 
yw Ww 
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000000 1$: » 0 
000443 BR TESTDX 


2$: 
105712 
001441 


000177 BOPP RID 
+ 
SCANS 


R1 
000177 MPB #177, (R2)+ 
SCAN4 


YES 
BACK UP POINTER 
BR IF CHAR WAS SYNC 
: NOP ;DATA_ERROR 
176174 B sor ee : INHIBIT ee 


2 £215><1 S5RECE IVED DATA = <15><12> 
012666 MO RDAX SETUP DATA ADRESS 
PRINT RECEIVED DATA 
;RECEIVED DATA ADDR. 
7<15><12>DATA SHOULD BE<15><12> 
012704 IXDA -+10 SETUP ADDR. 
[PRINT GOOD DATA 


I 

DERR: VB (R1),R3_;SETUP XMIT DATA 
MO =(R2) ,R2° s SETUP RCV oy 
H DATA ghee 

TESTDX: (SP) + sPOP STAC 

012716 000 R PC [RETURN FROM SUB/ROUT 


012720 051105 : <15><12>/THERE WAS A RECEIVER ERROR. REGISTER (SEL 2) =/ 
013001 5 : Sc <15><12> 
<15><12>/RECEIVED DATA = /<15><12> 
“ASCIZ. <15><12>/DATA SHOULD BE/<15><12> 
“ASCII <15><12>/PLEASE MAKE CONNECTION (DIAL NUMBER) ./ 
eASCiZ <15><12>/WHEN CONNECTION COMPLETE; HIT CONTINUE SWITCH. /<15><12> 
eASCIZ <15><12>/PLEASE MAKE CONNECTION (DIAL NUMBER) ./<15><12> 


-(R2) 
011015 MPB PARAM2+1 , (R2) + 
SCAN4 


883 


ee te a a a i 
— SS I SS 
Nww eye evvw 


ah th ca aa cal ath el oh ed 
ODOOOOO00O0 


a a eo 
OEWN-O 
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DQ11 ITE 
C -P11 05-OCT-78 09:22 INITIALIZATION OF TRANSMITTER. 


5 


tii i iii iti titi iti titi titi titi titi titi ti ttt 
INITIALIZE en ge TER, 
:PURPOSE OF THIS ROUT INE IS er cont OUT FIVE 


R ATA 
FER. CHARACTERS WILL BE TRANSMITTED ONE AT A TIME 


SAAR RR AREER EERE ERE ERE REE 


013274 STARTX: TST 2IF SWO4=1 & SW14=0 WAIT at TURNING TX ON 
014216 BEQ ND [NO GO AHEAD AND TURN ON T 


000007 
000001 


014216 
BN ° 
013274 ie :ZERO DELAY 


011032 
000300 00000 4300 XCSR(R4) =CLEAR BOTH DONE BITS FROM TX 
000010 WBITS,XCSR(R4) ENABLE ERROR 
000004 waite, *XCSR(R4) : WHERE IS THE POINTER POINTING 
015426 PC, GETPRI :GO TOGGLE TO GET PRIMARY. 

STARTX [GOTO BEGGINING 
000005 : #5.R :SET FOR FIVE SYNC CHARS. 
014222 asin RS :SET POINTER LOCATION 
011015 PARAMZ+1, (R5)+ LOAD IN SYNC CHARS. 

TALL DONE ?? 

Rs ‘BRANCH IF NOT DONE 

(R5) [SET LAST BYTE TO ZERO 


NOW THE SYNC CHARS “ LOADED IN CORE FOR THE DQ11 TO 
;PICK UP AND TRANSMIT OUT. 


#12,REG(R4) ;SELECT MISC REGISTER 
#4000,SEC(R4) :SET FOR EIGHT BITS PER CHAR. 

ro REG(R4) SELECT. THE TX BA PRI. 

WSYNC, SEC (RG) ;LOAD T X BA PRI. WITH SYNC ADDR. 
REG(R4) SELECT THE TX WC PRI. 

W-5,SEC (R46) SET FOR FIVE CHARS. 

#XFLG, STAT SRESET TX COMPLETE FLAG 

ADTR,XCSR(R4G) :SET DATA TERMINAL READY 

STOP FIRST TIME HERE? 


“BR IF NO 
-MSG5 [MAKE CONNECTION 
STOP 
Crete 
MMRDY ,XCSR(R4) 
TIME ,436 sHAVE 30 SEC ELAPSED YET 
8$ NO NOT YET 


RoSR,R2 ;LOAD FOR TYPEOUT 
XCSR(R4) ,R3 [LOAD FOR TYPEOUT 


2sS=S= 
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IF 013554 032777 010000 175262 #SW12,aSWR Fs PRINTOUTS? 
3562 001001 BNE 12$ BR IF YES 


107 

or ;TYPE ‘WAITING TO TRANSMIT'’ MESSAGE. 
1076 
1077 


011032 
014214 
000005 . 
000001 #1. TEMP1 
BNE - 
014216 ¢ TEMp2 
000001 : BIT #F ULL. DUPLEX ,PARAM2 
010000 : r #10000, XCSR(R4 :IS CARRIER UP? 
011032 TIME .A'36 £30 SECONDS UP ? 
V @RCSR,R2 ; PREPARE TYPE OUT 
000002 XCSR(R4) ,R3 “AS ABOVE 
010000 175154 #SW12,aSWR : INHIBIT PRINTOUTS? 
13$ ‘BR IF YES 
1 PE. "WAITING *' 
011032 : TIME [ZERO TIMER 
BR 10$ 
011032 : TIME :SET TIME=0 
000400 000002 AROTS ,XCSR(R4) 
020000 000002 : BIT #CTS,XCSR(RA) 
011032 000036 TIME £30 SECONDS UP ?? 
*PREPARE TYPE QUT 
000002 ‘AS ABOVE 
010600 175074 2,aSWR : INHIBIT PRINTOUTS? 
14$ [BR IF YES 


2 TYPE. "WAITING "' 
011032 148: :ZERO TIMER 


3 
leleleleleleleleleloleo) 
tad od od 4 
Nw 


Sobotckatot bs 
Bini 
SRR BRORS 


BSLSFPSSSSSRSRARA RESIS 


;TEST AND SETUP FOR HI BAUD RATE. NOTE THE MESSAGES 
s;MUST BE THE SAME LENGTH IN HI BAUD. 


011014 6$: #H1 .BAUD , PARAM2 ;HAS ma BAUD BEEN SELECTED? 
17$ :BR oat re 


000005 #6 ,REG(R4) 2 SEL SEC T 

000006 IXDA, SEC (R4) LOAD SEC TXBA WITH DATTA 
000005 #7 ,REG(R4) TSEL SEC TxwC 

000006 TXWC , SEC (R4) SET TXWC FOR MAX CHAR XFER RATE 


sHERE NOW BECAUSE CLEAR TO SEND HAS BEEN SET 
NOW SEND THE SYNC CHARS. 


17$: BIS #.GO,XCSR(R4) ;SET THE GO BIT 
CLR i! SET TIME TO ZERO 
4$: TSTB XCSR(R4) 31S TX DONE WITH SYNCS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Mon NN ee ee ad ed ad ed aed ed Oo 
NRARNN 8 Soo Qankwnv—oSs SRkSRALLS 
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EP OVERL 
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014040 100417 BMI 5$ :BR IF YES 
014042 023727 011032 000036 CMP TIME ,436 SHAVE 30 SECOND GONE BY?? 
014050 103771 BLO 4$ ‘BR IF NOT YET 
014052 011402 MOV @RCSR,R2 ; LOAD co TYPE a“ 
014054 016403 000002 MOV XCSR(R4) ,R3 SLOAD FOR TYPE OU 
014060 032777 010000 174756 BIT #SW12,aSWR EINAIBIT PRINTOUTS? 
014066 001001 BNE 15$ ‘BR IF YES 
014070 104002 HLT 2 eree WAITING... 
014072 005037 011032 15$: CLR TIME [ZERO TIMER 
014076 000756 BR 4$ :GO WAIT FOR DONE 


iNOW TRANSMITTER DONE HAS SET AND THE SYNC CHARS 
HAVE BEEN SENT OUT. THE TRANSMITTER IS TO BE 
:ENABLED AND THE DATA WILL BE TRANSFERED. 


014100 032737 000002 011014 S$: BIT #H1 .BAUD , PARAM2 ;HAS HI BAUD BEEN SELECTED? rite 
014106 001033 BNE 7$ “BR IF YES 
014110 112764 000002 000005 MOVB  #2,REG(R4) ;SELECT TX BA PRI 
014116 013764 011022 000006 MOV 1XDA, SEC (R4) BA 
014124 062764 000002 000006 ADD #2. SEC(R4) “POINT BA TWO HIGHER 
014132 112764 000003 000005 MOVB #3.REG(R4) SSELECT TX WC PRI 
014140 012764 177776 000006 MOV #~2, SEC (R4) [SET TWO CHARS AT A TIME 
014146 112764 000006 000005 MOVB #6,REG(R4) SELECT TX BA SEC 
014154 013764 011022 000006 MOV IXDA,SEC(R4) | :LOAD TX BA SEC WITH DATA POINTER 
014162 112764 000007 000005 MOVB  #7.REG(R4) SSELECT TX WC SEC 
014170 012764 177776 000006 MOV #-2,SEC(R4) SSET WC WITH 2 
: THE DQ117 IS TOTALLY ENABLE TO GO. THE TRANSMISSION 
[WILL BEGIN ON THE SECONDAY (THE SYNC CHARS WENT ON 
ZTHE PRIMARY). THE DQ11 WILL INTERUPT AFTER EACH CHAR 
ZAND CONTINUE TRANSMITTING WHILE THE END CHAR IS 
SEARCHED FOR. 
014176 042764 000300 000002 73: BIC #300,XCSR(R4) CLEAR ALL TX DONES 
014204 052764 000041 000002 BIS #IE+.GO,XCSR(R4) 
;SET INTERUPT ENABLE AND GO 
014212 000207 RTS PC :GO BACK TO MAIN PROGRAM 
3SYNC CHARACTER BUFFER AREA, 
014214 000000 TEMP1: 0 
014216 000000 TEMP2: 0 
014220 000000 ERRORS: 0 
014222 026 026 SYNC : -BYTE 26,26 
014226 026 026 “BYTE 26.2 


6 
014226 026 026 -BYTE 26,26 
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IPT i iit itiiiiiiiiiisiiiiiiitiiiiiy) 
; TRANSMITTER INTERUPT SERVICE ROUTINE 

IN THIS a! INE THE END CHARACTER IS CHECKED FOR 

AND IF IT WASN'T FOUND THE TRANSMITTER CHARACTER COUNT 

REGISTER IS ADJUSTED. 


FERRARA EREREEEREEEREEEEERERRERRRREEREEEEEREEEREEKEEEREREE EE 


XISR: NOP LOCATION SET FOR HALT a IN DEBUGGING. 
T —— is THE DQ11 eye FLAG SET? 


T SET GOOD SO FAR. 
XCSR(R4) ,R3 
@RCSR,R2 


000004 
000002 


0 :DQ11 ERROR FLAG SET. EXAMINE REGISTERS FOR ERRO 
ERR(R4), LE 9 te :SAVE DQ ERROR REG 


#377,ERR 
@RCSR,R2 PREPARE FOR ERROR TYPEOUT 
XCSR(R4) ,R3 PREPARE FOR ERROR TY YPEOUT 
wy. XCSR(R4) 1S EITHER TX DONE SET? 
; GOOD EITHER PRI OR SEC “powe IS SET 
6" PORT ERROR. INTERUPT WAS TO 
“BE CAUSED BY TX DONE; AND TX IS NOT DONE. 
1) SAR PORE 31S rl ee RATE SELECTED? 


7BR | 
ata i FAKE STACK 
HBTC ;XFER ALL DONE 
Welle, XCSR(R4) WHERE IS POINTER?? 


NEXT. 
te. REG (RG) IMARY 
C(R4) ,R1 GET NEXT ADDRESS TO TRANSMIT FROM 
2 SEC (R4) [UPDATE CURRENT ADDRESS. 
PC,TX.CK :GO CHECK FOR END CHAR. 


:1F I COME BACK FROM THE SUBROUTINE THAT MEANS THAT THE 
;END CHAR WAS NOT FOUND AND THE TRANSMISSON GOES ON. 


MOVB #3, REG(R4) zSELECT IX Wc SEC 
MOV #=2,SEC(R4) [LOAD WITH 

BIC #BIT7,XCSR(R4) CLEAR PRI DONE FROM TX 
RTI SLEAVE TX ISR 


THE ABOVE ROUTINE SERVICED THE INTERUPT IF THE 
“PRIMARY REGISTERS CAUSED THE INTERUPT. 


-4 TX.SEC: MOVB #6 ,REG(R4) ;SELECT THE TX BA SECONDARY. 
000006 ° MOV SEC(R4) RI GET ADDRESS POINTER. 
000002 ADD #2, SEC (R4) [UPDATE CURRENT ADDRESS. 
014450 JSR PC, TX.CK GO CHECK THE LAST CHARACTER, 


: JUST LIKE ABOVE : 1 COME BACK FROM THE ABOVE SUBROUTIN 
“THAT MEANS T Ne THE LAST CHAR HASN'T BEEN TRANSMITTED 
SAND THAT TRANEMI SS0N SHOULD CONTINUE. 


014424 000007 MOVB #7, REG(R4) ;SELECT THE TX WC SEC 
014432 000006 Mo’! #-2, SEC (RG) ITH A =2 


SEC(R ;LOAD W 
014440 000100 ° BIC #8116, xCSR(R4) CLEAR SEC DONE 


000004 014220 
000377 000004 


000002 
000300 000002 


lalelelelelelo) 
= pr ome me ep 


000002 011014 


ed ed ed ad nk ed od 2d 2) 2d et a I wd od 2 
BELKFRAGLESRIRARATASIAINSIB 


000004 000002 
000002 000005 
000006 


MOMAMAM ENUM ONMAVINNGO OWI & = 
DWHKOSAUGLAW WOMODOLWOOALMN 


000002 
014450 


SENeoRaRTS 


ae er ls ee 
WOBNAULWN=0O 
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30 014446 
3 011040 


3 00142 
0144 011040 
34 1424 
000100 174352 
3 174402 
38 
174376 
000100 174326 
174356 
000124 174350 
100000 
000441 000002 
4546 011032 


4552 
4554 


or 


R LEAVE HERE 
TX.CK: TX.TERM,-(R1)  ;WAS THAT THE LAST CHARACTER. 
XISRDN :1SR_IS DONE IF BR IS MADE 
TX.TERM,-(R1) ;LAST C 
XISRDN :BR_IF YES 
MONDAT : #8116, aSWR CHECK FOR DATA MONITOR. 
Q a ;DON' TOR DATA 


£ 
(R1),aTPB : TYPE CHARACTER 
Pp :GO BACK TO ISR 
#8116, aSWR :CHECK FOR DATA MONITOR 
X1SRDN [DON'T MONITOR 
atP ‘IS TTY READY 
XISRDN ‘TTY NOT READY GO ON WITH TEST 
#'T aTPB STYPE ‘'T'! 
#XFLG, STAT “SET TX COMPLETE FLAG 
#IE+ROTS+.GO0,xXCSR(R4) 

ZCLEAR ALL CONDITIONS FOR TX 
TIME ‘ZERO TIMER 
(SP)+ : SUBROUTINE PC FROM STACK 
SLEAVE HERE FOR GOOD. 


AW 
—_ 
2 


HAR? 


NOU 


MmNrononrononononofnery 
. . 
OPIN OCOKAOQANAAAA NO OO 000 


wW 


9 
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WN 


= RRR EAREEARKEAAKEARERARARAREEARRAKAEERERERREREEEEKEKH 


S INITIALIZE RECEIVER ROUTINE 


LRRARRAARARRRERARREEREERERREEREEREEERERRREREEERERERREERREERERREREREEEKR 


STARTR: NOP LEAVE OPEN FOR TEST PURPOSES. 
000300 BIC #300, @RCSR CLEAR ALL DONE 
000004 Welle, @RCSR CHECK FOR ried to fs SEC. 


1 BR IF POINTING TO PRI 
015426 [POINT REGISTERS TO PRI 
BR STARTR BEGIN AGAIN 


BIRAR 


wi 
oO 
as 


NOM MAWRIWRW 
NN ~ o 


011015 : GET SYNC CHAR 
011015 PARAM2 GET SECOND SYNC CHAR 
000011 7SELECT SYNC REGISTER 
014222 000006 SYNC, > Sp ;LOAD SYNC REGISTER 
000000 SELECT. RX BA PRI. 
011020 000006 IRDA, SectRA) LOAD RX BA FOR DATA 
000005 REG(R4) :GET WC REGISTER 
177776 000006 P 7SET FOR ONE CHAR. 
000004 7SELECT RX BA SEC. 
011020 RX 

000002 


;LOAD BA SEC. 
[UPDATE DATA POINTER BY ONE 
2GET WC REGISTER 

T FOR TWO CHAR 


FOR 
TSELECT MISC REGISTER 
; SELECT EIGHT BITS PER CHAR. 
4 ;SET FOR MAX 750 CHARS TO BE RXED 
#RELG, STAT ;RESET RX COMPLETE FLAG 


SABARARAS 


mn 
YE 
FIG SaS55 


NS 
FF 


ERDBR 
#HI.BAUD ,PARAM2 ;1S HIGH BAUD RATE SELECTED? 
2$ :BR IF NO 

#1 ,REG(R4) sSELECT THE RX WC PRI 

RXWC SEC (R4) RECEIVE CHARS MAX, 

#5 ,REG(R4) >SELECT THE RX WC SEC. 

SEC (R4) 7ZERO THE RX WC SECONDARY. 
#DTR,XCSR(R4) SET DATA TERMINAL READY. 
3f0P FIRST TIME HERE? 


-MSG5 
STOP 


MIE+.GO,@RCSR ;SET_INTERUPT ENABLE AND GO 
015050 000207 PC [GO TO MAINLINE 


; THE ABOVE SHOULD HAVE PREPARED THE RECEIVER TO 
SRECEIVE ALL THE CHARS NEEDED FOR TESTING, 

; THE RECEIVER WILL_INTERUPT AFTER EACH CHAR IS RECEIVED. 
[CHECKING FOR THE END CHARACTER. 


SSERSESIZIBVIINT 
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FARRER RRR 


sRECEIVER INTERUPT SERVICE ROUTINE. 


FAA REE REE REE EK 


sTHIS ROUTINE WILL SERVICE THE PRIMARY AND SECONDARY 
SREGISTERS WHEN THEY INTE 
;CHECKING FOR THE END CHAR IS PERFORMED. 


RISR: LEAVE SPACE FOR BEBUGGING 
T ERR(R4) CHECK THE DQ11 ERROR FLAG 
2$ 7BR IF ERROR FLAG NOT SET 


@RCSR,R2 
orn oR3 
ERR(R4) ,ERRORS 
ore ERR(R4) 


i$, 


: CHECK ERROR REGISTER FOR ERROR. 
014220 
000004 


OKOLAWA £OAWWAWODOKA COWUIDA NO SWOCOK kU 


CHECK THE BUFFER SIZE 
;BR IF OK 


:STOP THE SHOW 
SRECEIVER BUFFER FULL 
;STOP EVERY THING 


=2 
ARCSR,R2 
XCSR(R4) ,R3 
#300,aRCSR EI 
. +4 7BR IF AT LEAST ONE DONE IS SET 
0 sNOBODY IS DONE . BUT AN INTERUPT OCCURED. 
#H1.BAUD,PARAM2 ;HIGH BAUD?? 
3$ BR IF NO 
#1E+.GO,@RCSR oo GO AND INTERUPT ENABLE 
(>?) STACK 


HBR CHK EXPER ALL DONE 
#B1T2,aRCSR [WHERE IS THE POINTER. 


RX.SEC 

#0 ,REG(R4) 

SEC(R4) ,R1 SS OF 
#2,SEC(R4) “UPDATE CURRENT ADDRESS — 
PC,RX.CK :GO CHECK THE DATA. 


SoA I RETURN BACK FROM THE ABOVE SUBROUTINE THE END CHAR 
WAS NOT FOUND AND RECEIVING WILL CONTINUE. 


MOVBo# REG(RG) :SELECT THE RX WC PRI. 
MOV #-2,SEC(R4) SLOAD WITH -2 

BIC #B1T7, secsh ‘CLEAR RX DONE 

RTI SLEAVE HERE NOW. 


: THE ABOVE ROUTINE WAS FOR THE PRIMARY REGISTER INTERUPT. 
: THE BELOW ROUTINE IS FOR THE SECONDARY REGISTERS. 


RX.SEC: MOVB #4 ,REG(R4) SELECT THE RX BA SEC. 
MOV SEC(R4) ,R1 [GET DATA ADDRESS 
ADD ae. SEC (R4) [UPDATE CURRENT ADDRESS 
JoR PC RX. CK :GO CHECK THE DATA 


011014 


MIO NOMI YIN & YINV VION UVIWIN = O = PWNS OUI BS 
. 


lelelelelelelelelelelelelelelelelelelolelelelelelelelele) 
ad ah aa cad ach oct cad ea aa ceed ed ed a a ed ee en eed cn ed ed a ed ed ed «a 
AAA ADA AAA IIIA III vw 
2 ET ST gee ee ee 

NS al ah al 


ont 
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:1F I COME BACK THAT MEANS THAT THE END CHARACTER WASN'T 
:FOUND AND I SHOULD CONTINUE RECEVING. 


015262 900005 000005 ' MOVB = #5. REG(R4) :SELECT THE RX WC SEC 
177776 000006 MOV #-2,SEC(R4) ‘LOAD WITH A <2 
000100 : BIC #BIT6,aRCSR [CLEAR RX DONE 
RTI :GO BACK TO MAINLINE .... 


THE BELOW ROUTINE CHECKS THE DATA FOR END CHAR. 


RX.CK: #B1T7,-(R1) ;CLEAR PARITY BIT. 
B #B1T7,-(R1) ;CLEAR PARITY BIT. 
RX. TERM, (R1)+ ;WAS THE CHAR =001 
RX ISRDN 7BR 
RX. TERM, (R1)+ ; 001? 
NO.12 ; NO 001 
#1E+.GO,aRCSR ;CLEAR GO = INTERUPT ENABLE 
#300, a@RCSR ;CLEAR ALL RX DONES 
#RFLG, STAT SET = COMPLETE FLAG 
TIME ZERO TIME 
(SP)+ POP SUBROUTINE POINTER. 
;ALL DONE GO HOME 
#B1T5,aSwR ;MONI TOR RX DATA?? 
1$ ;DON'T MONITOR 
aTPSs sTTY READY?? 
1$ “NOT READY GO ON WITH TEST 
-(R1),aTPB ‘PRINT CHARACTER 
PC ;GO TO RX ISR 
MONI TOR RX DATA? 


STTY READY? 
‘NO GO ON WITH TEST 
YPE 'R'' 


GNISSESS ELS. | 


BOVSARAN=S 


000200 
000200 
011041 
011041 


WWWNWWANAWWG 


BNE 
RXISRDN: 
000041 BIC 
000300 
040000 
011032 


000040 173462 
173512 
173506 
000040 173436 
173466 
000122 173460 


BSSREREREReS 


wines 


AXAXAAOXANMOAAO NOM NOOCOCo ANANOO 


RT 
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MNMYIP NWOMYUIPINESWWWUIT POSES 
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: ROUTINE TO GET TRANSMITTER OR RECEIVER ONTO 
; THE PRIMARY REGISTERS IF THEY ARE ON THE SECONDARY. 


GETPRI: aM ne IS THE TX ON THE SEC?? 


;BR IF NO 
#12,REG(R4) :SELECT THE MISC REG 
#4010,SEC(R4) :SET EIGHT BITS AND TEST LOOP FOR CLK 
#7 ,REG(RG) ‘SELECT TX WC SEC 
#1, SEC(R4) :TX ONE CHAR 
#.GO,XCSR(R4) SET GO 
#BIT6,XCSR(R4) =HANG HERE FOR SEC DONE 
. ‘KEEP WAITING FOR TX DONE SEC. 
GETPRI :GO RECHECK AND CKECK RX 


#B1T2,aRCSR z1S RX ON SECONDARY REG 
2$ ‘BR IF ON PRI. 
ZSELECT MISC REGISTERS 
sEIGHT BITS AND TEST LOOP (CLK) 
*SELECT RX WC SEC 
:RX ONE CHAR 
ZSEL RX 
i LOAD R 
#B1T6, aRCSR ZHANG HERE FOR RX SEC DONE. 
= [KEEP WAITING 
GETPRI 7GO CHECK EVERY ONE 


#12,REG(R4) SELECT MISC REGISTER 
#4010,SEC(R4)  ;CLEAR EIGHT BITS AND TEST LOOP 
#30 SR ;CLEAR RX DONES 


2CL 
:CLEAR TX DONES 
;GO HOME 


#300.XCSR(R4) 
PC 


R 
NO.DAT: 


MFULL: .ASCIZ <15><12>/RECEIVER BUFFER FILLED. ERROR! !/ 
0 MRXDA: .ASCIZ <15><12>/RECEIVED DATA = /<15><12> 
015715 15 MRXSB: .ASCIZ <15><12>/RECEIVED DATA SHOULD BE /<15><12> 
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-EVEN 
1432 000001 - END 
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666 
803* 838* 918* 949 10134 


Ow 


— 


1401 1412 


1408 1421 


rnnnnhnnnnnnnnnne 


1188 1189" 1317 1322 1323* 


999 1117 1146 1157 
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1291 
832 913 


ata aba 
AWWIweEeWnio 
~~ Or 
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—- 
gscaes 
we*ee 


R 
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STPS 
SWR 


Sssssssssssss 
<i pi dhdhaniectababan 
FSRSAAELESSSS 


z ace 
eg 


leoleleleleler) 
ab ad ot od ed od 


: 


015752 


ERRORS DETECTED: 


ds ae Go 
>» 


RUN-TIME: 4 


RUN-TIME RATIO: 1 


CORE USED: 16K 
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